home *** CD-ROM | disk | FTP | other *** search
/ Kyoko 8203 / Kyoko 8203.iso / mac / menu.dxr / 00018_èâä²âª.ls < prev    next >
Encoding:
Text File  |  2003-03-02  |  261 b   |  15 lines
  1. on prepareFrame
  2.   global cdvoume
  3.   set the volume of sound 1 to cdvoume * 19
  4.   i = 15
  5.   repeat while i <= 27
  6.     sprite(i).visible = 1
  7.     i = 1 + i
  8.   end repeat
  9.   i = 15 + cdvoume
  10.   repeat while i <= 27
  11.     sprite(i).visible = 0
  12.     i = 1 + i
  13.   end repeat
  14. end
  15.